perm filename GLORP2[NSF,DBL] blob
sn#163805 filedate 1975-06-19 generic text, type T, neo UTF8
ππ Running at 20725 Load av. = 2.65, Used 0:00:14.1 in 0:02:01
1013, 1013 FREE WORDS
(EXS broken)
:CLOCK(2)
6393
:
BT
EXS
RAND-THING
INSTAN-PAT
INSTAN-1D
INSTAN-D
ANYB-EXS-E-FILLIN1
PROGN
APPLY
SELECTQ
ANYB-EXS
APPLYB
APPLYB-P
MAPCONC
OR
AND
PSUF
AND
#41073
MAPCONC
AND
OR
AND
PSUF
FILLIN
EVAL
XEQ-CAND
TLOOP
START
**TOP**
:BA1
NIL
:GEXISTING
NIL
:BREAK(INSTAN-REC)
(INSTAN-REC)
:
RETURN NIL
EXS = NIL
(EXS broken)
:BT
EXS
RAND-THING
INSTAN-PAT
INSTAN-1D
INSTAN-D
ANYB-EXS-E-FILLIN1
PROGN
APPLY
SELECTQ
ANYB-EXS
APPLYB
APPLYB-P
MAPCONC
OR
AND
PSUF
AND
#41073
MAPCONC
AND
OR
AND
PSUF
FILLIN
EVAL
XEQ-CAND
TLOOP
START
**TOP**
:BTV
B OBJECT
EXS
RAND-THING
PAT1 (LIST 'CLASS $)
INSTAN-PAT
CC NIL
CR NIL
DBOD (MATCH BA1 WITH ('CLASS $))
DTYP (NONRECURSIVE)
SFN TYPE
P NIL
PAT ('CLASS $)
REC NIL
BASE NIL
D (TYPE NONRECURSIVE (MATCH BA1 WITH ('CLASS $)))
INSTAN-1D
MACROW NIL
MACROZ NIL
MACROY NIL
MACROF INSTAN-1D
MACROX ((TYPE NONRECURSIVE (MATCH BA1 WITH ('CLASS $))) (TYPE RECURSIVE (OR
**(EQUAL BA1 (LIST (QUOTE CLASS))) (APPLYB
(QUOTE SET-STRUC) (QUOTE DEFN) (APPLYB (QUOTE SET-STRUC-DELETE) (QUOTE ALGS) (A
**PPLYB (QUOTE STRUCTURE-MEMB) (QUOTE
ALGS) NIL (COPY BA1)) (COPY BA1))))))
DE (ANY1OF (TYPE NONRECURSIVE (MATCH BA1 WITH ('CLASS $))) (TYPE RECURSIVE (
**OR (EQUAL BA1 (LIST (QUOTE CLASS)))
(APPLYB (QUOTE SET-STRUC) (QUOTE DEFN) (APPLYB (QUOTE SET-STRUC-DELETE) (QUOTE
**ALGS) (APPLYB (QUOTE STRUCTURE-MEMB)
(QUOTE ALGS) NIL (COPY BA1)) (COPY BA1))))))
INSTAN-D
ANYB-EXS-E-FILLIN1
PROGN
APPLY
SELCQ (BP (SUGG (ANYB-EXS-E-SUGG BA1 BA2 BA3)) (FILLIN2 (ANYB-EXS-E-FILLIN2)
**) (FILLIN1 (ANYB-EXS-E-FILLIN1)) (CHECK1
(ANYB-EXS-E-CHECK1)) NIL)
SELECTQ
BA4 NIL
BA3 NIL
BA2 NIL
BA1 NIL
BP FILLIN1
ANYB-EXS
BA4 NIL
BA3 NIL
BA2 NIL
BA1 NIL
BP FILLIN1
APPLYB
B ANYB-EXS
APPLYB-P
MAPY NIL
MAPE NIL
MAPL NIL
MAPFN2 NIL
MAPFN1 APPLYB-P
MAPX (ANYB-EXS)
MAPCONC
OR
AND
C1 (GENL)
RS (ANYB ANYB-ANYP ANYB-EXS)
BA4 NIL
BA3 NIL
BA2 NIL
BA1 NIL
B ANYB-EXS
P FILLIN1
PSUF
AND
Z2 ANYB-EXS
Z ANYB
#41073
MAPY NIL
MAPE NIL
MAPL NIL
MAPFN2 NIL
MAPFN1 (LAMBDA (Z Z2) (AND (GETHASH (SETQ Z2 (GLUE Z BA1)) HCON) (PSUF P Z2
**BA2 BA3 BA4)))
MAPX (ANYB OBJECT STRUCTURE SET-STRUC)
MAPCONC
AND
OR
AND
C1 (GENL)
RS (ANYB OBJECT STRUCTURE SET-STRUC)
BA4 NIL
BA3 NIL
BA2 NIL
BA1 EXS
B SET-STRUC
P FILLIN
PSUF
BA3 ππ Running at 16073 Load av. = 4.46, Used 0:00:23.6 in 0:05:13
πNIL
BA2 NIL
BA1 EXS
B SET-STRUC
FILLIN
EVAL
XEQ-CAND
TLOOP
START
**TOP**
:CLOCK(2)
11180
:
RETURN '(STRUC 3 4 5)
EXS = (STRUC 3 4 5)
(EXS broken)
:
BT
EXS
RAND-THING
INSTAN-PAT
INSTAN-1D
INSTAN-D
ANYB-EXS-E-FILLIN1
PROGN
APPLY
SELECTQ
ANYB-EXS
APPLYB
APPLYB-P
MAPCONC
OR
AND
PSUF
AND
#41073
MAPCONC
AND
OR
AND
PSUF
FILLIN
EVAL
XEQ-CAND
TLOOP
START
**TOP**
:PAT1
(LIST 'CLASS $)
:RETURN NIL
EXS = NIL
(EXS broken)
:RETURN NIL
EXS = NIL
(EXS broken)
:RETURN NIL
EXS = NIL
(INSTAN-REC broken)
:BT
INSTAN-REC
INSTAN-1D
INSTAN-D
ANYB-EXS-E-FILLIN1
PROGN
APPLY
SELECTQ
ANYB-EXS
APPLYB
APPLYB-P
MAPCONC
OR
AND
PSUF
AND
#41073
MAPCONC
AND
OR
AND
PSUF
FILLIN
EVAL
XEQ-CAND
TLOOP
START
**TOP**
:GEXISTING
NIL
:GETB(SET-STRUC EXS)
NIL
:
SET(AA (2 3 4))
(AA reset)
(2 3 4)
:
SET(BB (5 6 7))
(BB reset)
(5 6 7)
:
(NCONC AA BB)
(2 3 4 5 6 7)
:
AA
ππ Running at 367446 Load av. = 5.60, Used 0:00:27.4 in 0:12:42
π(2 3 4 5 6 7)
:BB
(5 6 7)
:CAND
(760 FILLIN SET-STRUC EXS)
:CLOCK(2)
15031
:
ππ IO wait at 16102 Load av. = 1.92, Used 0:00:28.1 in 0:16:50
ππ IO wait at 16102 Load av. = 7.48, Used 0:00:28.3 in 0:27:59
ππ IO wait at 16102 Load av. = 6.76, Used 0:00:28.4 in 0:30:20
ππ IO wait at 16102 Load av. = 5.26, Used 0:00:28.5 in 0:42:21
EDITF(INIT-PART)
prop
edit
*3
*MBD (SETQ GEXISTING (OR (GETB B P) *]
*0 P
(LAMBDA (B P) (SETQ GEXISTING &))
*3 3 P
(OR (GETB B P) (SETB B P &))
*3 3 P
P
*NX P
(SETQ GEXISTING (COPY &))
*XTR 3
*OK
unsaved
INIT-PART
:EDITF(INSTAN-1D)
prop
edit
*F LIST
*P
(LIST (INSTAN-PAT PAT))
*XTR 2
*OK
unsaved
INSTAN-1D
:EDITF(INSTAN-1I)
prop
edit
*P
(LAMBDA (I) (ERRORSET I))
*(3 (GEXADD I))
*UNDO
(3 --) undone.
*3
*MBD GEXADD
P
(GEXADD (ERRORSET I))
*OK
unsaved
INSTAN-1I
:EDITF(INSTAN-PAT)
prop
edit
*(R (RAND-THING) (LIST 'RAND-THING]
*-1 P
(ERRORSET PAT1)
*MBD GEXADD
*OK
unsaved
INSTAN-PAT
:EDITF(GEXADD)
prop
edit
*P
(LAMBDA (GB GB2) (AND & &))
*E GLOB((SWSUF))
THE NUMBER OF GLOBAL VARAIABLES IS NOW 82
82
*(2 (X))
*(3 (NCONC GEXISTING X) X)
*P
(LAMBDA (X) (NCONC GEXISTING X) X)
*OK
unsaved
GEXADD
:REDO EDITF
edit
*3 P
(NCONC GEXISTING X)
*MBD SETQ GEXISTING
P
(SETQ GEXISTING (NCONC GEXISTING X))
*OK
GEXADD
:EDITF(INSTAN-REC)
INSTAN-REC unbroken.
prop
edit
*F CADDR
*0 P
(EQ (CADDR DPROC &))
*(1 EQUAL)
*RI
πππππ*** SRI-AI GOING DOWN IN 102 2
MINUTES. ***
...P
(RI 2 2 P) ?
*RI 2 2
*P
(EQUAL (CADDR DPROC) (QUOTE ALGS))
*(3 (LIST 'QUOTE 'ALGS]
*0 P
(AND (EQ & &) (EQUAL & &) (SETQ BOP &) (GETHASH BOP HCON) (OR & &))
*3 P
(EQUAL (CADDR DPROC) (LIST & &))
*(: (EQ (EVAL (CADDR DPROC)) 'ALGS))
*P
... (EQ & &) (SETQ BOP &) (GETHASH BOP HCON) (OR & &))
*1 PP
(EQ (EVAL (CADDR DPROC))
(QUOTE ALGS))
*NX P
(SETQ BOP (CADR DPROC))
*3
*MBD EVAL
*↑ -1 P
(AND (MATCH REC1 WITH &) (COND &))
*-1 -1 -1 P
(ERRORSET DPROC)
*MBD GEXADD
*OK
ππ Running at 3461 Load av. = 3.52, Used 0:00:41.2 in 0:55:50
unsaved
INSTAN-REC
:SYSOUT(S)
ππ Running at 14777 Load av. = 3.41, Used 0:00:44.5 in 0:56:36
πS.;97
:
LOGOUT)
π Halt at 5651 Load av. = 4.68, Used 0:00:45.5 in 0:57:24
@
@DEL S.;96
@DS
559 Total pages in use - 300 Allowed, 335 Undeleted, 224 Deleted
System total: 6853 Pages left, 68697 Used
@DIR
<LENAT>
CON3. ;18,17
.COM;20
S . ;97
TOP3. ;21,20
.COM;19
UTIL3. ;17,16
.COM;17
@DO
THU - DOWN FOR SOFTWARE 12JUNE75 1800 TIL 12JUNE75 0800
FRI - UP ALL DAY
SAT - UP ALL DAY
SUN - DOWN FOR HARDWARE MAINTANANCE 16JUNE75 0 TIL 16JUNE75 0800
MON - UP ALL DAY
TUE - UP ALL DAY
WED - DOWN FOR SOFTWARE 18JUNE75 0600 TIL 18JUNE75 0800
THU - UP ALL DAY
FRI - UP ALL DAY
SAT - UP ALL DAY
SUN - DOWN FOR HARDWARE MAINTANANCE 23JUNE75 0 TIL 23JUNE75 0800
MON - UP ALL DAY
@EXPUNGE
@
πππππ*** SRI-AI GOING DOWN IN 5 MINUTES. ***
SYS
Tenex up 35:17:21 34! Jobs Load av 4.92 3.87 4.05
Tenex will go down THU 6-19-75 1217 til MON 6-23-75 0800
Job TTY User Subsys
7 Det RAPHAEL EXEC
17 Det PURDUE EXEC
20 Det GREEN EXEC
29 Det DEUTSCH EXEC
6 23 KATUNA .OTHER
8 100 OP EXEC
11 22 WALKER EXEC
12 12 GARVEY EXEC
14 41 SAGALOWICZ EXEC
15 53 SRI-ARC TELNET
18 111 Not logged in EXEC
21 47 WILBER EXEC
22 52 SRI-ARC TELNET
23 13 SACERDOTI EXEC
26 51 SRI-ARC TELNET
28 35 ELSPAS EXEC
30 36 SHOSTAK LISP
31 63 BERGER BLIS11
32 77 PLACKO EXEC
33 10 FIKES EXEC
34 45 MOUTON EXEC
35 6 SUTHERLAND LISP
36 67 BLEAN EXEC
38 11 WEYL EXEC
39 114 LENAT EXEC
43 66 BARROW EXEC
44 24 STEVENS EXEC
45 113 SDC EXEC
47 14 GARVEY .OTHER
0 Det SYSTEM SYSJOB
1 Det SYSTEM PRINTR
2 Det SYSTEM BATCON
3 Det SYSTEM TELSER
4 Det SYSTEM RSSER
5 Det SYSTEM LDINF
@
@LOGOUT
LENAT Over allocation by 260 pages.
LOGOUT JOB 39, USER LENAT, ACCT HACK, TTY 114, AT 6/19/75 1214
USED 0:0:53 IN 0:59:29